home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / DATACH.CST / 00219_Script_bar comp popup < prev    next >
Text File  |  1999-03-07  |  1KB  |  58 lines
  1. property thePopLocn, popSpriten, popNamen, mySpriten, faraway, fieldObjn
  2. global currentChartName, popbgSpriten
  3.  
  4. on new me
  5.   set mySpriten = the spriteNum of me
  6.   set popSpriten = mySpriten + 1
  7.   set popbgSpriten = mySpriten - 3
  8.   set right = the right of sprite (mySpriten - 2)
  9.   set top = the top of sprite (mySpriten -2)
  10.   set thePopLocn = point(right, top)
  11.   set popNamen = "mdl_field"
  12.   
  13.   puppetSprite popSpriten, true  
  14.   set faraway = point(-1000, -1000)
  15.   set the loc of sprite popSpriten = faraway
  16.   
  17.   return me
  18. end
  19.  
  20. on register me, theObj
  21.   set fieldObjn = theObj
  22. end 
  23.  
  24.  
  25. on mouseDown me
  26.   set the member of sprite popSpriten = member popNamen
  27.   set the loc of sprite popSpriten = thePopLocn
  28.   set the member of sprite popbgSpriten = member popNamen
  29.   set the loc of sprite popbgSpriten = thePopLocn
  30.   -- put "popped - " & thepoploc
  31.   updateStage
  32.   repeat while the stillDown
  33.     checkIfInside fieldObjn
  34.   end repeat
  35.   
  36.   set the loc of sprite popSpriten = faraway
  37.   set the loc of sprite popbgSpriten = faraway
  38.   
  39.   
  40.   set name = getPlaneName(fieldObjn)
  41.   if name = "" then 
  42.     nothing
  43.   else
  44.     disSpecs name
  45.   end if
  46.   
  47.   
  48.   set the loc of sprite popSpriten = faraway
  49.   set the loc of sprite popbgSpriten = faraway
  50.   
  51.   updateStage
  52. end
  53.  
  54. on mouseUp me
  55.   
  56.   nothing
  57. end 
  58.